% my $perl_var1;
<ol>
<&| items , value => $not_a_perl_var &>
</&>
</ol>

<%init>
# this assumes $lang is a global variable which has been set up earlier.
local $_ = $m->content;
my ($text) = m{<$lang>(.*?)</$lang>};
</%init>

<%perl>
sub foo2 {
    my ($p1, $p2, @p_rest) = @_;
}
</%perl>


    
